DSeg : Integer           Returns the Address of the Data Segment

 DSeg : Integer;

    Returns the address of the current data segment--that is, the contents
    of the DS register. This is a 16-bit value that gives the paragraph
    address upon which the data segment starts.

          Notes:    If the value returned is less than 0, the actual value
                    of the DS register is equal to 65536.0 + DSeg.

                    To get the actual starting byte address, multiply by
                    16.0 and assign the result to a real variable (to
                    avoid overflow).

  -------------------------------- Example ---------------------------------

           var
             DSByteAddr : Real;

           { Compute the DS starting byte address }
           if DSeg < 0 then
             DSByteAddr := 16.0 * (65536.0 + DSeg)
           else
             DSByteAddr := 16.0 * DSeg;